home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / spheroid boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  26 lines
  1. 5 ifch=2then30
  2. 7 ifch=1then130
  3. 10 gosub61000:poke53281,0:poke53280,0:print"    please wait:loading characters"
  4. 20 ch=1:load"sph. char.",8,1
  5. 30 poke56,128:clr
  6. 40 poke53265,11:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1
  7. 50 print"[147]":poke648,128:gosub61000:poke53265,27:poke53272,4
  8. 70 print"        please wait:loading game        "
  9. 90 rem poke147,0:sys57812"colorizer",8,1:sys62631
  10. 95 print"[144]load"chr$(34)"spheroid"chr$(34)",8          [145][145][145]"
  11. 110 poke198,5:poke631,13:poke632,82:poke633,85:poke634,78:poke635,13
  12. 120 end
  13. 130 ch=2:print" please wait:loading machine language "
  14. 140 load "spheroid.o",8,1
  15. 150 remopen 15,8,15,"s0:sph. boot":close15:save"sph. boot",8:run
  16. 61000 print"[147]":poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  17. 61130 fori=1to3:print"                                      ":next
  18. 61150 print"        published on loadstar #59     "
  19. 61160 print"      subscriptions 1-800-831-2694    "
  20. 61170 print"     changing this notice is illegal  "
  21. 61180 print"                                      "
  22. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  23. 61200 au$="spheroid":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  24. 61210 au$="by john harris  (c) 1989":poke214,18:printchr$(142)""
  25. 61220 printspc(20-len(au$)/2)"[152]"au$"":poke53265,27:return
  26.